home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 57 / 64er_Magazin_Sonderheft_57_19xx_Markt__Technik_de_Side_A.d64 / data aid demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  618b  |  27 lines
  1. 10 rem demoprogramm fuer data-aid
  2. 20 rem nikolaus heusler, zwengauerweg 18, 8 muc 71
  3. 30 :
  4. 35 z=8
  5. 40 dataanton ,bert,carl,dieter
  6. 50 datapetra,heike
  7. 55 datakatja,susi
  8. 60 data123,40,50,60
  9. 65 data110
  10. 70 !r60:reada,b
  11. 80 !rb:reada$:!r65:readx:!rx/2
  12. 90 readw$,h$:readx
  13. 100 print"[147]":poke214,z:sys58732:print""x;a$;w$b
  14. 110 data4,1,19,32,21,20,9,12,9,20
  15. 112 data25,32,39,4,1,20,1,45,1,9
  16. 114 data4,39,32,9,19,20,32,16,18,9
  17. 116 data13,1,32,45,45,32,32,32,32,32
  18. 118 data6,9,14,4,5,14,32,19,9,5
  19. 120 data32,32,14,32,9,32,3,32,8,32
  20. 122 data20,32,32,63,63,32,-1
  21. 180 !c110
  22. 190 !s110,1025+z*40
  23. 210 print"[145][145][145][145][163][163][163]
  24. 220 [151]198,9
  25. 230 [131]145,145,145,148,141,17,148,141,32,-1
  26. 232 !s230,631
  27.